(Fquo): Simplify.

diff --git a/src/data.c b/src/data.c
index 1a66e52632af0fbf99b5e8ce01fe2d9e5ee0003a..992aac664761c0ca124079ca221e2fd43a6a77ff 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -2699,9 +2699,7 @@ usage: (/ DIVIDEND DIVISOR &rest DIVISORS)  */)
      Lisp_Object *args;
 {
   int argnum;
-  if (nargs == 2)
-    return arith_driver (Adiv, nargs, args);
-  for (argnum = 0; argnum < nargs; argnum++)
+  for (argnum = 2; argnum < nargs; argnum++)
     if (FLOATP (args[argnum]))
       return float_arith_driver (0, 0, Adiv, nargs, args);
   return arith_driver (Adiv, nargs, args);